#!/usr/bin/perl -w  # for syntax highlighting

use POSIX 'setsid';

package clreqd_modules;

sub async_test {
my %ARGS=@_;

	my $sleep=$ARGS{SLEEP};

	my $pid=fork();
	if($pid) {
		return "OK $pid";
	}
	$::REQD_SERVER=undef;
	select(undef,undef,undef,int($sleep));
	my $wfd;
	my $dir="$::ENV{TRUECL_CODE}/monitors/mailbox";
	open($wfd,">$dir/.clreqd.$$") or exit(0);
	print $wfd "OK Where done!\n";
	close($wfd);
	exit(0);
}

1;

